اگر سیستم شما بیش از یک درایو سی دی رام داشته باشد نحوه دسترسی به درایو دوم یا سوم متفاوت است.

 mciSendString('open cdaudio!X: alias driveX', nil, 0, 0);
 mciSendString('set driveX door open wait', nil, 0, 0);

به جای X نام درایو را وارد کنید(فقط در سطر اول)

برای بستن نیز:

mciSendString('set driveX door closed wait', nil, 0, 0);

نمونه برنامه :

procedure TMain.open_cdrom(Sender: TObject);
var
  i:integer;
  s:string;
begin
   s:=trim(ComboBox4.Text);//combobox4 =name cd rom
   i:=pos(':\',s);
   Delete(s,i,2);
   label18.Caption:=s;
   mciSendString(pansichar('open cdaudio!'+S+' alias drive'+s), nil, 0, 0);
   mciSendString(pansichar('set drive'+s+' door open wait'), nil, 0, 0);
end;

procedure TMain.close_cdrom(Sender: TObject);
var
  s:string;
begin
  s:=trim(label18.Caption);
  mciSendString(pansichar('set drive'+s+' door closed wait'), nil, 0, 0);
end;

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: